home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
program
/
knobvb25.zip
/
VB.ZIP
/
KANNULAR.FRM
< prev
next >
Wrap
Text File
|
1996-01-17
|
17KB
|
525 lines
VERSION 2.00
Begin Form AnnularDemo
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Knob Annular Properties Demo"
ClientHeight = 3330
ClientLeft = 1890
ClientTop = 2250
ClientWidth = 7890
Height = 3735
Left = 1830
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 222
ScaleMode = 3 'Pixel
ScaleWidth = 526
Top = 1905
Width = 8010
Begin Frame Frame4
BackColor = &H00C0C0C0&
Caption = "Annular Radii"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Left = 3360
TabIndex = 25
Top = 2340
Width = 4425
Begin HScrollBar HScroll1
Height = 240
Index = 2
Left = 1965
Max = 100
TabIndex = 4
Top = 195
Width = 2000
End
Begin HScrollBar HScroll1
Height = 240
Index = 3
Left = 1965
Max = 100
TabIndex = 5
Top = 435
Width = 2000
End
Begin Label Label3
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "0"
Height = 195
Index = 3
Left = 4020
TabIndex = 8
Top = 465
Width = 120
End
Begin Label Label3
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "0"
Height = 195
Index = 2
Left = 4020
TabIndex = 9
Top = 210
Width = 120
End
Begin Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "AnnularInnerRadius:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 2
Left = 495
TabIndex = 10
Top = 225
Width = 1470
End
Begin Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " "
Height = 195
Index = 2
Left = 2685
TabIndex = 11
Top = 210
Width = 90
End
Begin Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "AnnularOuterRadius:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 3
Left = 465
TabIndex = 12
Top = 465
Width = 1515
End
Begin Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " "
Height = 195
Index = 3
Left = 2685
TabIndex = 13
Top = 450
Width = 90
End
End
Begin Frame Frame3
BackColor = &H00C0C0C0&
Caption = "Annular Values"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 900
Left = 3360
TabIndex = 24
Top = 1440
Width = 4395
Begin HScrollBar HScroll1
Height = 240
Index = 0
Left = 1965
Max = 100
TabIndex = 31
Top = 255
Width = 2000
End
Begin HScrollBar HScroll1
Height = 240
Index = 1
Left = 1965
Max = 100
TabIndex = 30
Top = 480
Width = 2000
End
Begin Label Label3
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "0"
Height = 195
Index = 1
Left = 4020
TabIndex = 26
Top = 525
Width = 120
End
Begin Label Label3
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "0"
Height = 195
Index = 0
Left = 4020
TabIndex = 27
Top = 285
Width = 120
End
Begin Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " "
Height = 195
Index = 0
Left = 2190
TabIndex = 28
Top = 285
Width = 90
End
Begin Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "AnnularStartValue:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 0
Left = 585
TabIndex = 34
Top = 285
Width = 1380
End
Begin Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "AnnularStopValue:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 1
Left = 585
TabIndex = 33
Top = 510
Width = 1365
End
Begin Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " "
Height = 195
Index = 1
Left = 2190
TabIndex = 32
Top = 510
Width = 90
End
End
Begin KNOB Knob1
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 1 ' 1 - Raised
BevelWidth = 2
BorderType = 1 ' 1 - Bevel
BorderWidth = 2
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 3045
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.6
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 0 ' 0 - Cicular
KnobUserDefined = ""
KnobValue = 0
Left = 60
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 23
Top = 135
Value = 0
Width = 3135
XScale = 0
YScale = 0
ZLoad = KANNULAR.FRX:0000
End
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "Annular Color"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1095
Left = 5700
TabIndex = 6
Top = 75
Width = 1635
Begin Label Colors
BackColor = &H00000000&
Height = 225
Index = 0
Left = 240
TabIndex = 7
Top = 390
Width = 225
End
Begin Label Colors
BackColor = &H00808080&
Height = 225
Index = 1
Left = 240
TabIndex = 14
Top = 630
Width = 225
End
Begin Label Colors
BackColor = &H00FFFFFF&
Height = 225
Index = 2
Left = 480
TabIndex = 15
Top = 390
Width = 225
End
Begin Label Colors
BackColor = &H000000FF&
Height = 225
Index = 3
Left = 480
TabIndex = 16
Top = 630
Width = 225
End
Begin Label Colors
BackColor = &H0000FF00&
Height = 225
Index = 4
Left = 720
TabIndex = 17
Top = 390
Width = 225
End
Begin Label Colors
BackColor = &H0000FFFF&
Height = 225
Index = 5
Left = 720
TabIndex = 18
Top = 630
Width = 225
End
Begin Label Colors
BackColor = &H00FF0000&
Height = 225
Index = 6
Left = 960
TabIndex = 19
Top = 390
Width = 225
End
Begin Label Colors
BackColor = &H00FF00FF&
Height = 225
Index = 7
Left = 960
TabIndex = 20
Top = 630
Width = 225
End
Begin Label Colors
BackColor = &H000080FF&
Height = 225
Index = 8
Left = 1200
TabIndex = 21
Top = 390
Width = 225
End
Begin Label Colors
BackColor = &H00004040&
Height = 225
Index = 9
Left = 1200
TabIndex = 22
Top = 630
Width = 225
End
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Annular ID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1095
Left = 3720
TabIndex = 0
Top = 75
Width = 1845
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "3"
Height = 255
Index = 3
Left = 885
TabIndex = 29
TabStop = 0 'False
Top = 525
Width = 615
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "2"
Height = 255
Index = 2
Left = 885
TabIndex = 3
TabStop = 0 'False
Top = 315
Width = 615
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "1"
Height = 255
Index = 1
Left = 240
TabIndex = 2
TabStop = 0 'False
Top = 525
Width = 615
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "0"
Height = 255
Index = 0
Left = 240
TabIndex = 1
Top = 315
Value = -1 'True
Width = 615
End
End
End
Sub Colors_Click (index As Integer)
knob1.AnnularColor = colors(index).BackColor
End Sub
Sub Form_Load ()
hscroll1(0) = knob1.AnnularStartValue * 10
hscroll1(1) = knob1.AnnularStopValue * 10
hscroll1(2) = knob1.AnnularInnerRadius * 100
hscroll1(3) = knob1.AnnularOuterRadius * 100
knob1.AnnularID = 2
option1(2) = True
End Sub
Sub HScroll1_Change (index As Integer)
Select Case index
Case 0
knob1.AnnularStartValue = hscroll1(0) / 10
label3(index) = knob1.AnnularStartValue
Case 1
knob1.AnnularStopValue = hscroll1(1) / 10
label3(index) = knob1.AnnularStopValue
Case 2
knob1.AnnularInnerRadius = hscroll1(2) / 100
label3(index) = knob1.AnnularInnerRadius
Case 3
knob1.AnnularOuterRadius = hscroll1(3) / 100
label3(index) = knob1.AnnularOuterRadius
End Select
End Sub
Sub HScroll1_Scroll (index As Integer)
Select Case index
Case 0
knob1.AnnularStartValue = hscroll1(0) / 10
label3(index) = knob1.AnnularStartValue
Case 1
knob1.AnnularStopValue = hscroll1(1) / 10
label3(index) = knob1.AnnularStopValue
Case 2
knob1.AnnularInnerRadius = hscroll1(2) / 100
label3(index) = knob1.AnnularInnerRadius
Case 3
knob1.AnnularOuterRadius = hscroll1(3) / 100
label3(index) = knob1.AnnularOuterRadius
End Select
End Sub
Sub Option1_Click (index As Integer)
knob1.AnnularID = index
hscroll1(0) = knob1.AnnularStartValue * 10
hscroll1(1) = knob1.AnnularStopValue * 10
hscroll1(2) = knob1.AnnularInnerRadius * 100
hscroll1(3) = knob1.AnnularOuterRadius * 100
End Sub